home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / mac / MSTR / PROGRAM / MOVIE3.DIR / 00006.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  2.9 KB  |  107 lines
  1. on about
  2.   global status
  3.   eracemenudownbutton()
  4.   stopqt()
  5.   set status to "about"
  6.   puppetSprite(19, 1)
  7.   set the type of sprite 19 to 1
  8.   set the ink of sprite 19 to 0
  9.   set the foreColor of sprite 19 to 255
  10.   set the backColor of sprite 19 to 0
  11.   set the castNum of sprite 19 to the number of member "about"
  12.   set the locH of sprite 19 to 320
  13.   set the locV of sprite 19 to 180
  14.   updateStage()
  15. end
  16.  
  17. on exitalart
  18.   global status
  19.   eracemenudownbutton()
  20.   stopqt()
  21.   set status to "exitAlart"
  22.   puppetSprite(19, 1)
  23.   set the type of sprite 19 to 1
  24.   set the ink of sprite 19 to 0
  25.   set the foreColor of sprite 19 to 255
  26.   set the backColor of sprite 19 to 0
  27.   set the castNum of sprite 19 to the number of member "exitDialog"
  28.   set the locH of sprite 19 to 320
  29.   set the locV of sprite 19 to 240
  30.   updateStage()
  31.   puppetSprite(20, 1)
  32.   set the type of sprite 20 to 1
  33.   set the ink of sprite 20 to 0
  34.   set the foreColor of sprite 20 to 255
  35.   set the backColor of sprite 20 to 0
  36.   set the castNum of sprite 20 to the number of member "cancel,up"
  37.   set the locH of sprite 20 to 192
  38.   set the locV of sprite 20 to 251
  39.   updateStage()
  40.   puppetSprite(21, 1)
  41.   set the type of sprite 21 to 1
  42.   set the ink of sprite 21 to 0
  43.   set the foreColor of sprite 21 to 255
  44.   set the backColor of sprite 21 to 0
  45.   set the castNum of sprite 21 to the number of member "yes,up"
  46.   set the locH of sprite 21 to 322
  47.   set the locV of sprite 21 to 251
  48.   updateStage()
  49. end
  50.  
  51. on helpmenu
  52.   global status
  53.   eracemenudownbutton()
  54.   stopqt()
  55.   set status to "helpMenu"
  56.   puppetSprite(19, 1)
  57.   set the type of sprite 19 to 1
  58.   set the ink of sprite 19 to 0
  59.   set the foreColor of sprite 19 to 255
  60.   set the backColor of sprite 19 to 0
  61.   set the castNum of sprite 19 to the number of member "help1"
  62.   set the locH of sprite 19 to 320
  63.   set the locV of sprite 19 to 251
  64.   updateStage()
  65.   puppetSprite(22, 1)
  66.   set the type of sprite 22 to 1
  67.   set the ink of sprite 22 to 0
  68.   set the foreColor of sprite 22 to 255
  69.   set the backColor of sprite 22 to 0
  70.   set the castNum of sprite 22 to the number of member "closeHelp,up"
  71.   set the locH of sprite 22 to 42
  72.   set the locV of sprite 22 to 32
  73.   updateStage()
  74. end
  75.  
  76. on stopqt
  77.   global selectedvideonum, videotime
  78.   if (selectedvideonum = 0) or (selectedvideonum = "0V") or (selectedvideonum = "0P") then
  79.     exit
  80.   end if
  81.   puppetSprite(15, 1)
  82.   updateStage()
  83.   set the movieRate of sprite 15 to 0
  84.   set videotime to the movieTime of sprite 15
  85.   updateStage()
  86.   set the type of sprite 15 to 0
  87.   updateStage()
  88. end
  89.  
  90. on playqt
  91.   global selectedvideonum, videotime
  92.   if (selectedvideonum = 0) or (selectedvideonum = "0V") or (selectedvideonum = "0P") then
  93.     exit
  94.   end if
  95.   set n to char 2 of string(selectedvideonum)
  96.   go(n)
  97. end
  98.  
  99. on recoveryqt
  100.   global selectedvideonum, videotime
  101.   puppetSprite(15, 1)
  102.   set the type of sprite 15 to 16
  103.   updateStage()
  104.   set the movieTime of sprite 15 to videotime
  105.   updateStage()
  106. end
  107.